home *** CD-ROM | disk | FTP | other *** search
- object TimeTableEditForm: TTimeTableEditForm
- Left = 271
- Top = 185
- ActiveControl = leTableName
- BorderStyle = bsDialog
- BorderWidth = 10
- Caption = '%s Timetable'
- ClientHeight = 373
- ClientWidth = 342
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Shell Dlg'
- Font.Style = []
- OldCreateOrder = False
- Position = poOwnerFormCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image: TImage
- Left = 1
- Top = 6
- Width = 40
- Height = 38
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- object Label1: TLabel
- Left = 5
- Top = 56
- Width = 326
- Height = 13
- Caption =
- 'Select the cells according to your timetable and use the pop-up ' +
- 'menu'
- end
- object Grid: TStringGrid
- Left = 0
- Top = 78
- Width = 342
- Height = 255
- ColCount = 8
- FixedColor = 16773360
- RowCount = 25
- Options = [goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goThumbTracking]
- PopupMenu = pmSelection
- ScrollBars = ssVertical
- TabOrder = 0
- OnDrawCell = GridDrawCell
- RowHeights = (
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24
- 24)
- end
- object btnOk: TButton
- Left = 176
- Top = 348
- Width = 75
- Height = 25
- Caption = '&OK'
- ModalResult = 1
- TabOrder = 1
- OnClick = btnOkClick
- end
- object btnCancel: TButton
- Left = 262
- Top = 348
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 2
- end
- object leTableName: TLabeledEdit
- Left = 57
- Top = 20
- Width = 266
- Height = 21
- EditLabel.Width = 77
- EditLabel.Height = 13
- EditLabel.Caption = 'Timetable Name'
- TabOrder = 3
- end
- object pmSelection: TPopupMenu
- OnPopup = pmSelectionPopup
- Left = 88
- Top = 104
- object pmiEnableSel: TMenuItem
- Caption = '&Enable Selected'
- OnClick = pmiEnableSelClick
- end
- object pmiDisableSel: TMenuItem
- Caption = '&Disable Selected'
- OnClick = pmiDisableSelClick
- end
- object pmiEnableAll: TMenuItem
- Caption = 'E&nable All'
- OnClick = pmiEnableAllClick
- end
- object pmiDisableAll: TMenuItem
- Caption = 'Di&sable All'
- OnClick = pmiDisableAllClick
- end
- end
- end
-